RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**FTLE®*1D**NDXTMS 


sz 


NN NN DDDDDDDD XX XX TITTTTTTTT MM MM SSSSSSSS 

NN NN DDDDDDDD XX XX TITTTTTTTT MM MM SSSSSSSS 

NN NN DD DD XX XX TT MMMM MMMM SS 

N N OD DD XX XX TT MMMM MMMM «SS 
NNNN NN DD DD XX = XX TT MM MM MM OSS 

NN DD DD XX XX TT MM MM MM OSS 

NN NN NN DD DD XX TT MM SSSSSS 
NN NN NN DD DD XX TT MM MM SSSSSS 

N NNNN DD DD XX XX TT MM MM SS 
NN NNNN DD DD XX XX TT MM MM SS 
NN NN DD DD XX XX TT MM MM SS eee 
NN NN DD DD XX XX TT MM MM SS eoee 
NN NN DDDDDDDD XX XX TT MM MM SSSSSSSS eeee 
NN NN DDDDDDDD XX XX TT MM MM SSSSSSSS coos 
LL III] SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL II SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] S$ 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL IIIT] SSSSSSSS 
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1 ~3ep-19 4 Oh: hs 38 YRUNOFF SRE NOXTMS.BLI; _ 


<z 


Cleaned up module names, modified revision aiatery to 
conform with established standards. Updated copyright dates. 
002 JPKO00012 24-Jan-1983 

Modified NDXVMSMSG.MSG to define error messages for both 
DSRINDEX and INDEX. 

Added require of NDOXVMSREQ.R32 to NDXOUT, NDXFMT, NDXDAT 
INDEX, NDXMSG, NDXXTN, NOXTMS, NDXVMS arid NDXPAG for BLISS32. 
Since this file defines the error message literals, 


Soooooooo 
SOoooocooeo 
er alwab ah ababeal 


: 1 1 ZTITLE "NDXTMS == RUNOFF to inset conversion’ ; 
; ¢ § MODULE NDXTMS sa = 'vQ4-000' : 
: ? Oba sa ISS5e » ADDRESSING _MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] ; 
4 S ; 
H 2 Bee ! BEGIN : 
; 7 $09 73 3 
3 8 4143 : ASS SESSISI STITT TTT TTT TTT TTT TTT CTT TTT IIIT TTT TTT TIT T TTT LT Tiiiititit tf} § 
: \® * $ 
: 10 ists 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 3 
; 11 0011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * . 
; \¢ Bog ! i ALL RIGHTS RESERVED. . 3 
; ; * 3 
; 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
3 15 0015 1% !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
; 16 8918 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTH * $ 
3 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
; 18 0018 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
$ 2 8056 : 7 TRANSFERRED. * 3 
e Mid * Ps 
; A 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
3 é 00 ; 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
3 Si 4 ? } ‘* CORPORATION. * 3 
4 . ® Py 
3 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; $8 BOSS : i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
° . *® Py 
ci. a 0028 1 !* * 3 
4 $0 83 4 1 LR RRR RARER AERA ARERR AREER AREER RE REE é 
; s : 
; 1 0031 1 : 
$ 3 ORs 1 !4¢ 3 
3 0035 1 ! FACILITY: 3 
5 3 site 1 DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility : 
; » 0036 1 ! ABSTRACT: 3 
Fie: or 0037 1! This module contains code to convert RUNOFF input text lines to 3 
; 3 ait : TMS-11 text Lines. : 
; 460 0040 1 ! ENVIRONMENT: Transportable ; 
5 $6) 0041 1! 3 
; $§ Ohe$ 1 ! AUTHOR: JPK ; 
, 6 0045 1! 3 
: | 644 Bpee 1 ! CREATION DATE: February 1982 3 
:° 45 1! 3 
; 46 Bog 1 ! MODIFIED BY: 3 
: «647 0047 1! 3 
; «6448 sk 1! 003 JPKO00015 04-Feb-1983 3 
3 49 . 2 3 
3 0 » 93 3 
3 1 1 : : 
3 26 : 1! 3 
: 4 41! é 
3 5 = F 3 
; 6 § 1! é 
. oy 73 3 


AX-11 Blis 


-32 V4.0-74 
RUNOFF ..SRCJNDXTMS.BLI; 


Ene EXTERNAL perenne for the error message literals 


9 
NOXTM NDXTMS == RUNOFF to TMS-11 conversion 1bese -1984 212: AX-11 Bliss-32 V4.0-74 P 
V04-000 beets rae Ser a Cte ie Pg eS ee ee age 33 


TABLE OF CONTENTS: 


Ssss ss 


FORWARD ROUTINE 
RNOTMS : NOVALUE, ! Generate TMS-11 output 
TMSPUT : NOVALUE; ! Put a Line to output file 


INCLUDE FILES: 


LIBRARY 'NXPORT:XPORT'; 
XIF XBLISS (BLISS32) 
XTHEN 


REQUIRE ‘REQ:NDXVMSREQ'; 
tFI 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


i] 

; MACROS: 
i 
i 
i 


EQUATED SYMBOLS: 


Oo 
oO NOU PUN OOO NOU UNIO Ooo orn od 


WWWNIWIANAAWNI NANA AWWW OOOCOCOCCOCCOOOOOOSoO 
C9 ODO CD SI NII NINN SIDA AAA AAA AOA NI NIN NNN NINA PAA AOA O 


co 


DOOOS000 0000000090009 0909090909 0909 INI INNING AAO 
Ss OMEWM—OOd oS a 
SGOOOOOOOOSOSOCOOCOOOCOSSOSOSOSSOSOSSGSOSOOOCOCOOSOOSOOCOSOSCSOOOOOOOOOSOOSOOOoSoOoOO 
ee ee ee ed a es ss ts ot ot = = = ts sd 2 as ss ss 3 st ts a te i 
a 
5 
> 
- 
- 
_— 
m 
Te] 
> 


Be Be Be Se Se Se Se Be Se Se Se Se Se Se Ge Fe Se Se Fe Gs Ge Ge Ge Se Se Ge Ge FH GHGs Ge Ge Ge Ge Se Se Se Se Se Sse Se Se Se Se Se Sse Se Se Sse esse Se Se Se sseteas 


T L 
TMSSTD $3: ' Relative size of average character for TMS 
MSPACE 2; ! TMS ‘em’ space size 
LITERAL 
TRUE = 1 
7 FALSE = 

98 BUFFER_SIZE = 2000; 
1 ! 
101 ' OWN STORAGE: 
88 , 
104 GLOBAL ' foe of file string 
192 TMSTOF : SSTR_DESCRIPTOR (CLASS = DYNAMIC, STRING = (0, 0)); 
198 GLOBAL 
198 TMSSIZ : INITIAL (40); ! TMS file size in blocks 
110 ; GLOBAL 
13 , CHRSIZ : REF VECTOR (256); 
118 3 GLOBAL ee 
114 9 CHRSZA : VECTOR (256) INITIAL ( ! TMS11 character size vector for ‘‘A’’ format 
115 9 REP 32 OF (0) i NUL = US | 
118 13, 14, $0. 18. 18. 9. 28, 10, 14, 14, | space ' “'#$S$28B' () 
11 9 18 $e 1, 18, 11, 12, 79+. % 
118 Rep 9 OF (18), (90183456789 
119 12, 12. 24, 24, 24, 18, 30, ':3;<¢€2>?78 


Ce eel cel el ee cee ee cel eel ce cel ce ce ee oe el cee ce eh ce oe eh ol cel el eel eh eh el el ek ek eh ek ek ek ed ek oe ek oe ek Ok ok ook oo 


DOK MMS NOR OPOK— MUM TN OR DROK— MUM TNOR OO OK— IM NOR WOOK UMN 
MIS SSSSSISS SS SISTISIIIVIT III IIASA AAA AAAS 
2S99999555555595555555555555555555555555555S5555 


oT 


hae) } 
™N | 
ww | 
a 
te J 
0 i 
a. j 
w 
@ 
e 
. 
N- °o 
Tee _ 
nw ‘ a N 
iz - od @ ~ 
o@ w at nw 
ees | - -— w i 
ww - ons | 
>= i z = 
- °o 2) » @ 
ux = c 3 
moa a ec 
‘2a a «a a o 
awn “ °o i) S = 
“anv ce be oOo o 
at: 4 @ v ® c av 
—Wn be oo ~ ~~ o & 
@e« Vv > v Cad be - 
we @e ~ @ @ Co 
em — wv ~. © c =] 
-o “=r “eH o N © Co “=e rot od eo « CY °o 
‘2 aa - = vw - e 
xo ow -an v oew8d Dm = -wn eo 7 
<< Cre - o 
es * 4 =e — wen TO =e =_ on“ . @ & 
°o a oo ot=7 Bo - 
og oo & ~ *& OBevuI”d oc c 30 5 — 
a Vv » 4) ao) 
eon + ONGC eo @BnMNeo-uOn- + ANIC @es cc Cc 
00 wo S . wo EO e ) 
M=-—- wOoO> 1890 >-Ov , =. TFTAWO> 100 OL ~©@ x= 
“7 of coos 
we O2@x< OCx + v>--IMUuowstzx< OCx u or = 
Oo °o o ® - o 
cre VEBIVE Bs —-' ® MVYEEZEIMVE BM wD @e . 
-—/ a - ~~ Zz £c = 
o- On>-2a— >--u OjB*e— -- Ous>-a— >--H +e vo aw 
eo) =z >a a a hod 
vv <6DuU 6s IVa K—S2HtO a wow 6s IVa OF YS c 
coo ~—M oes @® 
DO cm cmcece nce cece Sw mmm mem mem em em ems emees o | a 
a . cc °o 
$s =. ss «& *. ss nw e-r- 
aa oo - vs oO oo oo Co av a 
oee -—w -— - -—-™ -— —= ec - 
mm ox 30 a 
| i | ss .- ss ss: zz aw “ 
zor mM wn o oo ow > 
-<_ —~w -— - -— -— --o --—- - 
.-e es. e ss ss. u 
oo \ a A NN cor ow 
mo Ne - wr Ne = 
> ss ~ & ees es -¢ 
coco oo o wdoO ao di 
om ~~ z N more nm ve 
~~ 
ese ses ee 8 Cal es: ees se eees 
NTT - NO TDOOMWNOO®O t: 4 
3 QIN = Ne NIN oO 
—_ 
- ees see ees ot ee see @ se oeee a 
wn WOO OR. DOO om ODOMWODOD Coa eee 
= NNR NK Me OCU ie = 8 i. 4 an 
ry) . Oo O-. o oo 
> ee es 8s 8 8 8 Ow wo eseeeeeeees wa w ~~ *e 
c DOO —-Oon NM BWOoO-ODBOwUVOOD - w - ~ 
oO MIN OI OO WAR NNOMNNIN KIN NO a aa ” [-<] 
Vv ~ Oo ~N -~ 6 <q< w 7 - 
ese ese 8 ees GQ~w © oe" s=8# es 8 se 8 8 a ey w ~~ 
- OOOOrWOe u oOo NN OW-NONDOOD sx, _— ee z a «| 
_- RM PN OO EMCI PICU OO ” kon w w wW 
7 vo oO - A za ce jz w 
w ess ses 8s & & «DD ws se: eee ©eseees @ wi qo — Zee 
= OT OO - Oorw FPOUNMOMNDOTFNUOOD “Vy ee . Gee J Lond 4 
— NINE Ne K- NK Me NE NK NN KO w wo @ -oO 
ee ws e Kz ~ >a 
o ese esses 8 8 & Qaeaeeee es 88 8 3G = a | og 
ow WODOCOnr—w WIPO WIT CUD CUMODOwWw “a J al ” aw 
RDN Oe NS MK SK NUNN KK Ne = a =z 1 s -— t 
ra ” 4 wow = _ a2 
o => 4 —_ =e w @ za 
2 <u o ad —- =&e HE FO 
> @ =< ww w ww 
fo 4 o = z w <= _ 
4 zs =< —— x 
4 oOo Oo oO mememe ws vere wi tl 
” 
= 
— 
Pad 
oa 
= 


OK VUNTMNOPR- DKOK— IMT NOR- DOO MUM TFMNOR. OHO K— WM TNOR- DOO TUMINO 
SOSA OS OSC IIIIIIN SF SF FT ST TT TTT TANNIN OOOOOOO 


LOL CO OK KK 


-000 


” 
= 
ra 
bd 
o 
z 


Vv 
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NDXTMS == RUNOFF to TMS-11 conversion 16-Sep-1984 01:12: Ax-11 Bliss-32 V4.0-74 
GLOBAL ROUTINE RNOTMS = Generate TMS-11 Output 1228681382 94: O8: 8 RUNOFF ..SRCJNDXTMS.BLI; 
3 168 +79 ! ZSBTTL "GLOBAL ROUTINE RNOTMS = Generate TMS-11 Output from RUNOFF text’ 
: 1%6 t28 } GLOBAL ROUTINE RNOTMS (RNO_LEN, RNO_PTR, DSC) : NOVALUE = 
: 17 450 1 144 
3 158 ret 1! 
3 12 r § } FUNCTIONAL DESCRIPTION: 
3 178 r ¢ } This routine converts RUNOFF input text to TMS-11 input text 
3; «6178 Be e8 1 ! FORMAL PARAMETERS: 
; 179 $2 1! 
; 180 4556 1! RNO_LEN = Length of input text 
; «(181 459 1! RNO_PTR = CHSPTR to input text 
3 ise Reed 1! dsc - Address of output string descriptor 
; % 461 1! 
3 «(184 Bees 1 ! IMPLICIT INPUTS: 
s 185 04635 1! 
; 186 0464 1! None 
: 187 0465 1! 
; «4188 0466 1 ! IMPLICIT OUTPUTS: 
3; «64189 0467 1! 
; 190 0468 1! None 
3 6191 Be? 1} 
3 136 0470 1 ! ROUTINE VALUE: 
; 19 0471 1 ! COMPLETION CODES: 
: 194 beo§ 2 
; 195 0475 1! None 
; 196 0474 1! 
3; 197 0475 1 ! SIDE EFFECTS: 
: 198 be 78 1! 
: 6199 0477 1! None 
; 200 bees 1 !-- 
: 201 047 BEGIN 
$ a4 0480 LOCAL 
; 2 0481 LINE : VECTOR CCHSALLOCATION (BUFFER_SIZE + 50)], 
3 She bee LEADING_BLANKS, 
s 02 48 I_PTR, ! Copy of input Line pointer 
3; 206 0484 I_LEN, ! Copy of input Line length 
3 sor 0485 L_PTR, ! Pointer to output Line 
3; 208 486 L_LEN, ! Length of output Line 
: $03 487 DOING_BOLD ! Bold sequence in progress 
> 210 488 DOING ITALICS, i Italic sequence in progress 
> 211 4 BOLD_THAR ' Current character is bold 
; 1 490 ITALTC CHAR, : Current character is italic 
: 21 491 OPEN_QOOTE, ' Next " is an open quote if TRUE 
3 1% £38 CH; ' Current character 
; 6 49% L_LEN = 0; ' No characters in output string 
ae 495 L_PTR = CHSPTR (LINE); ! Point to beginning of output string 
: 218 49 DOING BOLD = FALSE; ' Not doing a bold string 
: 219 49 BOLD_CHAR = : ' Current character is not bold 
3 220 498 DOING_ITALICS = FALSE; i Not italicized string 
: 1 499 ITALIC_CHAR = FALSE; ! Current character is not italic 
3 § 230 OPEN_QDOTE = TRUE; ! Next "' is an open quote 
3 4 0502 I_LEN = .RNO_LEN; 


10 
NDXTM NDXTMS == RUNOFF to TMS=11 conversion 1b-5¢ -1984 01:12: AX-11 Bliss-32 V4.0-74 Page 6 
VOu~030 GLOBAL ROUTINE RNOTMS = Generate TMS-11 Output 1 7300-1 38s 9b: h8: 8 RUNOFF «SRC INDXTMS..BLI: wae 
; 225 3 PTR = CHSPLUS (.RNO_PTR, .RNO_LEN = 1); 
; ; 5 DECR I FROM .RNO_LEN = 1 TO 0 DO 
8 : BEGIN 
; ? 6 | Remove trailing whitespace 
5 ; 1 CH = CHSRCHAR (.1_PTR); 
; 4 316 IF (.CH NEQ %C" ') AND (.CH NEQ TAB) THEN EXITLOOP; 
: é 218 I_LEN = .1; 
; 15 I-PTR = CHSPLUS (.1_PTR, -1); 
3 : 218 END; 
; 40 0518 1_PTR = .RNO_PTR; 
: 4g 08 ‘ DECR I FROM .1_LEN TO 1 DO 
: te Be § Convert leading tabs to ‘'/u'''s 
: 246 0524 IF CHSRCHAR_A (I_PTR) EQL TAB 
> 247 525 THEN 
> 248 226 BEGIN 
> 249 5 CHSWCHAR_A (%C'/", L_PTR); 
; 230 0528 CHSWCHAR-A (%C'u'. L-PTR): 
> 251 0549 L_LEN = TL_LEN + 2; 
: 538 O88} sise’™ 
: 354 0332 "BEGIN 
> 255 05 I_LEN = .1; 
; 256 0534 I-PTR = CHSPLUS (.1_PTR, -1); ! Back up to account for overshoot 
> 257 0535 ERITLOOP; 
. - 
; 260 0938 LEADING BLANKS = 0; 
i 361 0349 DECR 1 FROM .I_LEN'TO 1 DO 
: se 541 i Count the number of Leading blanks 
; He 0348 if CHSRCHARLA (1_PTR) QL XC* ' 
; ef 0343 gLEADING BLANKS = LEADING BLANKS + 1 
im Ef a 
3 271 328 17PTR = CHSPLUS (.1 PTR, -1); ! Back up to account for overshoot 
> 27 230 ERITLOOP; 
s oe : 1 END; 
> 275 328 IF .LEADING BLANKS 
$ er 554 THEN 
: 2? 555 BEGIN 
; 278 5 § ! 
3 4 5 ; Odd number of leading blanks 
; 281 335 i_LEN = .I_LEN + 1; 


Be Be Se Be Ge Se Ge Ge Se Ge Ge Ge Ge Se Se Se Se Ge Ge Be Ge He Ge TF Ge FF He SH Ge BH Gs Se Se Se Se Se Se Se SF Ge Se Se Se Se Se Se Sees Se Sse Se Se Sse este sseeas 


AAAANA AA A.AW AA AANA. NAA AAA AAAI AAAI AAAI GIP POPU PON 
0 


w 
oo 


IA ATORIPOPOPSPIPIPOPUDD 2 2 OS SS OOO 
US ZSSSVEGRUN SOMNene woo OR we 


ccccce 


pA Ooo ee Oe Ooo RN tt tert ty tr ty ty tray Ay a ty ty ty Oy Ae ty ty ay aes 
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NOXTMS == RUNOFF to TMS=-11 conversion 1b-5¢ -1984 212: AX-11 Bliss-32 V4.0-74 Pp 7 NO 
GLOBAL ROUTINE RNOTMS = Generate TMS-11 Output 1 ~360 138% Oh: bS: #8 RUNOFF SRC INDXTMSBLI: ese (3) vC 


1_PTR = CHSPLUS (.1_PTR, <1); 
LEADING BLANKS = LEADING BLANKS = 1; 


INCR botne 1 TO .LEADING_BLANKS / 2 DO 


Insert indent sequence for each pair of leading blanks 
CHSUCHAR.A (xC'/", L PTR): 


HSWCHAR-A (XC'm', L-PTR) 
LALEN = TL_LEN + 2; 


' 
Process text portion of Line 


iNCR I FROM 1 TO .J_LEN DO 
IF .L_LEN GEQ BUFFER_SIZE 

THEN 
BEGIN 


| String too long for buffer 


DOO 00 000000 OO 09090909 09 09 09 09 C9 09 SI NINN NIIP PA AAA AAO 
NAME WN SO OONAU EWN 9 ODNOU EWN 0 OONOUE ARO OONAOUES WO 


RIF XBLISS (BLISS32) 
ZTHEN ! Signal errors in BLISS32 
SIGNAL CINDEXS$_TRUNCATED, 0, INDEX$_TEXTD, 2, .L_LEN, CHSPTR (LINE)); 
ZELSE ! Use $XPO_PUT_MSG otherwise 
$XPO_PUT_MSG (SEVERITY = WARNING, 
STRING = ‘string too long - truncated’, 
STRING = $STR_CONCAT (‘entry text: ', (.L_LEN, CHSPTR (LINE)))); 
XFI 
EXITLOOP; 
END; 
CH = CHSRCHAR_A (I_PTR); ! Get next character 


H 
SELECTONE .CH OF 
SET 


CaC**'): 
Bold next character 
BOLD_CHAR = TRUE; 

C¥C°G"): 
Next character is italic 


AAA AH ANA AA ANNAN NH BEEP PEPE EPP PEPE PWIA PIPPIN PIN WII WIWIWIononuwtnut 


Po Wo te tees teste t ested oak * al oak al ak al “ad “ab ah ah AL Ab ah Ab Ah Ab db abv alah al al wah ahah valvalvalvalalval ales valvalealealaleal 


a et ot et ot BI OOOOO 


OusSwn—O0e 


cccccce 


DAA MUIMVIIVIIT EE & 
DONOULS WN —"OVOOnNe 


WA. AAAI 


SN NN SSAA AAP AAAAAO 
NOU SSSSLSSFSSERLS 


~“ 
oo 
PAA OSAO 


SSS s. 
AAACOOMUMIIMIVITIUIUIUTIUTIVI 


LS aS cako —o Goo Wa hr 


SSSSSSSSSSSSSSEES 


Ve Ge Se Se Se Ge Se Se Se Be Be Se Ge Ge Se Se Se Fe Se Ge Ge Se Ge Se Se Se Ge Ge Se Be Oe Se Se Se Ge Se SF S86 Oe Ss Oe FH Se SH Ss SH Se SESS SESS Se Se Sees 


SESSSESESSSPESEES 
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TMS == RUNOFF to TMS=11 conversion Ib-3¢ =1984 01:12: AX-11 Bliss-32 V4.0-74 p 
AL ROUTINE RNOTMS = Generate TMS-11 Output 1 ~300n 138% a ae ABNOrR SAE INDa TIS ou ot et (38 
ITALIC_CHAR = TRUE; 
CxC'X"): 
BEGIN 


Overstrike previous character 


ZIF XBLISS (BLISS32) 
ZTHEN ! Signal errors for BLISS32 
SIGNAL (CINDEXS_OVERSTRK, 0, INDEXS_TEXTD, 2, .RNO_LEN, .RNO_PTR); 
ZELSE ! Use SXPO_PUT_MSG otherwise 
$XPO_PUT_MSG (SEVERITY = WARNING, 
STRING = ‘The following Line contains an overstrike sequence’, 
STRING = $STR_CONCAT ("entry text: ', (.RNO_LEN, .RNO_PTR))); 
XFI1 
CHSWCHAR_A (ZC'C', L_PTR); 
CHSWCHAR-A (%C'e', L-PTR); 
CHSWCHAR_A (ZC'c', L_PTR); 
CHSWCHARTA (XC')". LIPTR): 
L_LEN = TL_LEN + 4; 
END; 
COTHERWISE): 
BEGIN 


' 
' A ‘normal’ character 


i Character is quoted. 
Get character. 


CH = CHSRCHAR_A (I_PTR); 
I= .J +1; 
END; 
IF NOT .BOLD_CHAR 
THE 
BEGIN 
; Do not bold this character 


iF .DOING_BOLD 
AND (.CH NEQ %C° ‘) 
THE 


BEGIN 
Bold is turned on and the current character is non-blank 
CHSWCHAR_A (XC'C', L_PTR); ! Turn off bold 


AOAPOOUOUUIIUIUR BB SUUMIUUMIUIUIS BREE EWE BRR RPE R PEPPER PPP PPP 


XT 


0700 


SOWDWNO UE WN OOOO UES WN OVONOU Swit 


VWPonononofnononororfornys 


MS == RUNOFF to TMS-11 conversion 
AL ROUTINE RNOTMS = Generate TMS-11 ieee 


CHSWCHAR_A (AC'f', 
CHSWCHAR_ “A (2C'r' 


sence ae 


0 
w$2p-198¢ 15:08:18 — ERUNOFF eSReSNOXTHS-BL 11 ge 
); 
) 


L_LEN = TL_LEN + it te 


IF .DOING_ITALICS 
THEN 


BEGIN 


i Must turn italics off too on since both bold 
and italics use the same termination sequence 


CHSWCHAR_A (2C'f*, LLPTR); 
eee A (XC'r', LOPTR); 


L_LEN = TL_LEN + 5;¢° 
IF premoyert 
THE 
BEGIN 


i This character is italicized. 
Turn italics back on. 


CHSWCHAR_A (XC'f", L_PTR); 
CHSWCHAR-A (%C'i'. LPTR): 
L_LEN = “ten + 8;°° 

ELSE 


i Character is not italicized. 
Note that we've turned off italics 


DOING_ITALICS = FALSE; 
END; 


CHSWCHAR_A (XC']"s L_PTR); 


L_LEN = <L_LEN + 1; 


DOING_BOLD = FALSE; 
END; 


PERE ADAP ADAMI VIIA A HAA A NINN SI 09 089 09 09 09 09 09 09 09 SII NINN NNN NNO A AOAAO 


N 
ELSE 
BEGIN 


Bold next character 
if NOT .DOING_BOLD 
THEN 

BEGIN 

Turn on bolding 


L_LEN = 


-———_—__—_——_- 


NDXTMS == RUNOFF to TMS=11 conversion 
GLOBAL ROUTINE RNOTMS = Generate TMS-11 Output 


WWIWNNWWWnw 


DOONAN Wry 


nee 


NOUS WN 9 OO NAME WN O ODNAUESWWN OO ONOULS WO 


SOOSOSOOCOSOOOCOCOOSOSOOSSOOSOOOOOOSOOOOCSOOOCOOOOOOCOOOOOOOoOOO 


SSLSESRANLSS 
NOUSWN OOD 


DPUPVSVSVSVSISISIT 


F 10 
er8eei 1 8ke Pb:b5ita — YaUNorr $AeSnoerne coor, 


DOING_BOLD = TRUE; 
END; 
BOLD CHAR = FALSE; ! Reset bold character flag 


IF NOT .ITALIC_CHAR 
THE 

BEGIN 

| Do not italicize this character 


if DOING ITALICS 
+ H NEQ &C° ') 


HEN 
BEGIN 
Italics are turned on and the current character is non-blank 


CHSWCHAR_A (XC' Ce ‘ -PTR); ! Turn off italics 
CHSWCHAR-A (XC'f", L-PTR); 


LLLEN = TL_LEN + 5; 
IF _ .DOING_BOLD 
THE 
BEGIN 


i Must turn bold off and back on since both 
} bold and italics use the same termination sequence 


CHSWCHAR_A (XC'f", L_PTR); 
CHSWCHAR-A (XC'r', L-PTR): 
CHSWCHAR-A (XC'f', L-PTR): 
CHSWCHARTA (ZC*b') LIPTR); 
L_LEN = 7L_LEN + 4; 
END; 

CHSWCHAR_A (%C'J", L_PTR); 

L_LEN = TL_LEN + f; 

DOING_ITALICS = FALSE; 

END; 

END 
ELSE 


BEGIN 

Italicize next character 
if NOT .DOING_ITALICS 

THEN 


DEDEDE D PA BPP AAA A NINN NNN SNR AA AAA AA AA AMA III BE UTUTUIO 


BEGIN 

Turn on italics 
CHSWCHAR_A (ee°t*. Lf hig 
CHSWCHAR_A (a's PTR); 


mm 


<z 


LO 


10 
NDXTMS == RUNOFF to TMS=11 conversion 1B-5¢ =1984 01:12: AX-11 Bliss-32 V4.0-74 
GLOBAL ROUTINE RNOTMS = Generate TMS-11 Output 1 ~3007 138% a ae RUNOFF .SRC NDATHS BLA vG 
7 CHSWCHAR_A (ZC'i', L_PTR); 
CHSWCHAR-A (XC'°J". L-PTR): 
LLLEN = TL_LEN + 4; 


DOING_ITALICS = TRUE; 

END; 
ITALIC_CHAR = FALSE; ! Reset flag 
END; 


IF (.CH LSS %C° °) OR (.CH GTR %0'°176') 
THEN 
BEGIN 
| Character is a control character 
if .CH EQL TAB 
THEN 
BEGIN 
TAB character 
CHSWCHAR_A (%C'/", L_PTR); 
CHSWCHAR_A (%C‘'u', L_PTR); 
L_LEN = TL_LEN + 2; 


ELSE 
BEGIN 


| Other control characters are illegal 


DOOGOCOCOCOCOOOOOOOOO 


PWN CO ODONA UNE WN OOD NAVE WN — O OONAUE WN OO ODNAUES WN OC OONOUS Wh 


PMP PON 2 SS Se 


L XIF XBLISS (BLISS32)_ 
ZTHEN ! Signal errors in BLISS32 
SIGNAL CINDEXS$_CTRLCHAR, 0, INDEXS_TEXTD, 2, .RNO_LEN, .RNO_PTR); 
¢ ZELSE ! Use $XPO_PUT_MSG otherwise 
U $XPO_PUT_MSG (SEVERITY = WARNING, 
U STRING = ‘the following Line contains control characters = ignored’, 
: STRING = $STR_CONCAT ("entry text: ', (.RNO_LEN, .RNO_PTR))); 


RFI 


END; 
END 


LSE 
SELECTONE .CH OF 
SET 


WIWWWAAAIA AA AAI 


DPE DRED SP & BB BE EE AWA AWW NIWIAIRPPOPPPUPONNPY 2 St SS SS 

SESE SSRN Rt LO OONO NE WN O DO AAR MN OO Old Or OI eo OO0 UU 
‘Cd 0d Cd Od 09 Cd Cd Cd Cd OD 09 Cd OD C9 Od CD C0 C9 Cd C9 CD 09 CD CD OD 09 C0 0D 9 09 CD 09 0D 09 09 CD C9 OD 09 08 NINI NIN NINN NING 

BEDI BB IIH AA ADAP ADDED DDD PDD IP AAA AAA A I UE BUTT IOP AO 


Bo Se Ge Ge Se Se Fe Se Ge Ge Ge Ge Se Ge Ss Ge Ge Se FH Se FF Se FH Ge FHSS Ge Ge Se Ge Se Ge Se Se FF Se Ge Ge Se Se Se Sse Se Se Se Se Se Ge Se Se Se Se Se ee Sees 
PUPP LDV DVDVLPVLVLU LULU SUDVLUSV IVT SLU SPUSV ST LVSTSU SST ISISTISTISISI IIIT 
SOOCOCOCOCOSOSOSOOSOSOSOSOSOSOSOSOSOOSOOSOSOOSCSOSOOOSOOOOOOOOOOOOOOOOO: 


7 J): 
BEGIN 
CHSMOVE (5, CHSPTR (UPLIT ("#n10*')), .L_PTR); 
4 _PTR = CHSPLUS (,L_PTR, 5); 
4 L7LEN = .L_LEN + 5; 
? ERD; 


Ne 
+s 
[a] 
i! 
om 
< ° 
ww 
>= 

ra 
NX 
Na 
‘2a 
or 
nu 
—a 
wn 
@me« 

ban 
~-u 
-o 
‘2a 
x2 
<< 
Su 


GLOBAL ROUTINE RNOTMS = Generate TMS-11 Output 


NDXTMS == RUNOFF to TMS=11 conversion 


a 


loaten fae me me ie be me allan 
aa aa aa aa aa aa aa aa. 
te se eo ‘es ‘6 to te ‘se 
| wBadl aba =) aa aa aad Po) 
= >. a. me Om *. = . 
sw . 3 7 3™~ 7 3™N 7 3™N a sw 7 
-- -- -- -- -s Ld = -s -= 
c+ + o+ + or +a- + ne “+ + e4 +>+ 
-= -=- - - -- - - - 
Vvuz Vvz vVvuz vu2z Vvuz VvZz vwuZz wuz 
vervew verew vervew verew verew verew verew verew 
~~ ~~ ~~ ~~ ~~ ~~ J ~~ J —~— J 
‘ o i t ‘ ] v t 
<<a «ai «au qa <q<au << <<a «au 
tte tte tte tte tte tte tte ‘¢ 
ca ca ca ca ca <a <a ca 
<«<aun << ii <<a << i << <<aun <<a <<a 
xz=x z= z= z= zz ; > ~ =x == 
Zvvz ZvvZz ZvvZz ZvvZz Zovdg Zvevdg Zevu®dg Zvewdz 
— 3B Bus +s — 3S Bus +e oom BS Bus ee — 3B Bus -e ome BBs ee toe BB ee om BB Bus ce —BBure 
MOAAI4UGD MOIABUG MYVBAAIUGA MYUBSAHUGA MVIBRSBHUA MVUSEBHUGA MVUSSBUIAQ MWSSOIU0A ™ 
ne ~~ eo a ~ 8 oe ~ oe a ~~ eo ~~ Se oe  - 
Ove Vw FOV Iw TOCVIw 4*MOV Iw +~OOO uw BOCvVsw ~~ Mereww --OMvcvww w 
- - - oe = = - = - 
vu =) =) =) vy =) wu vw vw 
ee ae ze ae ee we re re ve 
=) =) us uw hd = i) — = 


FLD LD SF FDL FFP FF FDI F FF WADIA FFU SF FU SF TUN TT 


DOP DRO K— WWII TANOE DWP O — CIM TWMN OR. OPO CUM TIN OR. DHOOM TM OR. DOOM UM TMOR- DOO 
FF TTF TAMMAMNUMNMAUNUNUNNOOODOODOOOOORARAAAAARBR.R. DWOMDWDWADCIDMDDWDODOOOSCOSCOAOOOSS 
€0.00.00.00.00.60 60 60 00 60 60 60 60 G0 60 6D GO GO GO GD 0D GD GO GO GD GD 6D 6D GD GD GD GD GD GD GD GD 6D 6D GO 6D 6D 6D GO GO GD 6D GD GO GD GD GD GO GD. GO.GO OO 
COOOOOSOSOSOOSSSOOSSOSSOSOSOSOSSOSSSSSSSSSSSSSSSSSSSS SOSOSSSSSSSSSSOSoosooe 


PF DOKOK CUM TMNOPR- DHOK— CUM TMNOR. DHOK— WM TNOR. CO HUN TIMOR. DAO CM TMN OR. OPO CUM 
DOOR RRA AIR coc 0000 00a ED SO Oe 3s38 wernt 
COO Rinne ORR DDOTDNAATPOSS SOSSSSSSSS TS SSeS USS e US 


Na i etd Rel tel et eh eh ed ee ee eh eh ek eh Ot Ot ed Ot Od ed dd Ot Oe ed et ee Oe Oe ee es 


Page 


-32 v4.0- 
NDXTMS.BLI; 


“11 Bi ise 
RUNOFF .SRC 


AX 


. es 


Sep-19be 14:09:18 
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NDXTMS == RUNOFF to TMS=11 conversion 16 
GLOBAL ROUTINE RNOTMS = Generate TMS-11 Output 1 


“vs 
=? 
x 
2> 


!' Next quote is not an open quote 


oa 
c 
-_ 
‘= 
a 
nn 

eere 
be > ee) 
eo ca 
oe | ow a 

ase e+e e+e eee ere ere o ad 
~_-_ nn ann - vo tant - a te | 
ca ca cc ca ca ca CF aa 
— a — a —— a oe 
aa aa aa aa aa aa - > w 

ee i) ‘es ‘oe ‘es ‘oe oes: ” 
a4 a = | ao aa -- ) 

. = oe . s . @ ee <x 

i =. <~w 7 ~N sw 7 ow se ow - YW & 
-- -- --« -- os --e- oOo vere 
+ B+ + x+ + ~+ -~N+ *~+ “s+ F ~~ “ 
vvuZz VvvuZz vVvvuaz Vvusz VuZ Vu Lee) << w 
verew vervew verew vervew vervew verew _— ao 't- 
~w ~~ ~~ J ~~ ~~ ~~ oO c aa oOo 

i t ‘ a a ‘ | - «<a 3 
<a «atu <<a «qa <«au qa oa c zz & 

i) tte tte te ‘4 tte (2 e ww ‘ 2 
ca ca ca ca cc za ze Qqas33 2 me 
<<aiun <<aun << ti <<aun << << w oO SO #4084 woe Oo 
zx == z= z= == =xz== Qa w zz at w 

Zvvz Zvv2z 2vv2z Zvvaz ZvevuZz ZvvZz 2°o_@------ ev ow o®-- 
— 3B Bus -s oot B Buse — BS Bu +s — BS Bus +s ome BBs ce come BB ee toms oe iat 
OPAAIAGO MOAGA4AG MOSKHEAUGB MOSHI MVOISBAIUGA MVUSSHIGA MO w ” 
wer ee = eee Oe olf eT 4 
Oevrtw AOMeSvsw VOVww ADSCVIW YOO UW MMeoww *- O-- fad 

—) i) vu =) Ls) iat 

ve td Pad ot ve ee 

ta us uw — ud bad 


LULL FF FLL FF FLL FF FWP FF FWA FTF TWAT TF TIMAUN OOO OOVOOOOMNOO 


MIT NOR DHOOM TN OR. DAKO — OUIM TFT NOR- DAO CIM TWN OR. OPO CIMT NOR. OP Oe FUP AT NOR. 
ee ee ah a ah a a a a Aa A el nd al od eh od a A a a ee A A AL AL AL AL AL ad 
PARA AAAAAA AAAS AAA AAAAAAAAAAAAAAAAAAAOAAOAAAAAAHAOOSOOOOOOASS 
COOOOSOOOOOOOSOOOOSSOSOOOSSOSOOSOOSOOSOOSOSOSOSOSSOSOSOSOSOSOSSOSOSOOOSOOSSOSOOSSSOS 


TFNOP-DOO— CUM TNO DOO NIN TN OR. COD 
NOSSO EAI TF AT TOWUMMNMMMNMIAW 
WOODODODODODODODODODODOO0OO00O WOOODODOOOOO 


th eT eT ee eT eT LL eee eee eT ele er eT eT eT er eT et et eT eT eT ee ee ee ee 2 eT 2 ee a | 


709 


MONIPONINUND 3 2 


IW POPOTU 
SSUFSUN SSRN RAN OOMNOUER WS 


SQN NNN 


10 
NDXTMS == RUNOFF to TMS-11 conversion 1b-Sep- 38¢ 94:18:33 
GLOBAL ROUTINE RNOTMS = Generate TMS-11 Output 14-Sep-1984 13:07:1 


C9 C9 C9 C9 C9 CD 09 C8 SI NINN SII NN NP PAA AAO OOo 
CONAUEWR OO OONAOULS WN" O OONOUFS WOO 


DOoOoOOooCoSoooooooos 
aaeasdeee ro oS RADAR ARR DO HOOP OSE A: 


oO 
co 
] 


a a ek et td td a 
MEW — 


Oooo 
veer ee 
WFWN OOO 


PROPRIA. BB RWWA. BB BNW WINN WWE BB PUI BUT AAMAS 


COTH 


TES; 
END; 
TES; 
END; 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCIJNDXTMS.BLI; 


p- 

Closing quote 

CHSWCHAR_A (%C'''', L_PTR); 

CHSWCHAR_A (ZC°''', L_PTR); 
' 


me = TRUE; Next quote is open quote 


L_LEN = .L_LEN + 2; 
END; 

ERWISE): 

BEGIN 

; A real normal character 
CHSWCHAR_A (.CH, L_PTR); 
L_LE LEN + 1; 


N= TL_LEN + 


IF .DOING_BOLD OR .DOING_ITALICS 
THEN 
BEGIN 


Turn off bold and italics 


CHSWCHAR_A ( 


L_LEN = TL_LEN + f; 


IF _ .DOING_BO 
THEN 


BEGIN 
CHSWCHAR 
CHSWCHAR 
L_LEN = 
END; 


IF .DOING_IT 
THEN 


BEGIN 
CHSWCHAR 
CHSWCHAR 


L_LEN = 
ERD; 
CHSWCHAR_A ( 
L_LEN = .L_L 

ERD; 


XC'C’, L_PTR); 


LD 


A EEE, Lata 
Lt itis 


ALICS 


_A (¥C'f", LP 
UA (3C'r’, LP 
L_LEN + 2; 


¥C')", L_PTR); 
EN + |; 


Le @e Pe Ge Ge 


K 10 


NOXTM NDXTMS == RUNOFF to TMS=11 conversion 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 15 
v04- GLOBAL ROUTINE RNOTMS = Generate TMS-11 Output 14- Sep- 138 9}: 4$: 3 RUNOFF. BR CJNDXTMS.BLI; . 3} 
; 738 101 IF NOT .OPEN_QUOTE 

3 38 1 1$ THEN = 

; 740 1 13 ! 

: ot) i 3 } Saw an open quote but no close quote 

; reg L 19 1 2 XIF XBLISS (BLISS32) 

; oe i § XTHEN ! Signal errors for BLISS32 

3 046 19 4 SIGNAL (INDEX$_CLOSEQUOT, 0, INDEX$_TEXTD, 2, .RNO_LEN, .RNO_PTR); 

; 048 ¥ 10 § XELSE ! Use SXPO_PUT_MSG otherwise 

: 750 U 19 & SXPO PUT MSG (SEVERITY = WARNING, | 

: 751 U 1029 STRING = issing close quote’ 

3 P36 , 18 , STRING = $STR_CONCAT (‘entry text: *, (.RNO_LEN, .RNO_PTR))); 

: tee 10 5 FI 

s 755 10 

3; 756 1034 SSTR_COPY (STRING = (.L_LEN, CHSPTR (LINE)), TARGET = .DSC); 

s 757 1035 END; 


~TITLE NDXTMS NDXTMS == RUNOFF to TMS-11 conversion 
-IDENT \V04-000\ 


-PSECT SPLITS,NOWRT,NOEXE,2 
00 00 00 2A 30 31 6E 2A 00000 P.AAA: .ASCII \#n10*\<0><0><0> : 
-PSECT SOWNS,NOEXE,2 
0000 00000 OLD_FILE: 


ORD 0 ; 

02. 0E& 00002 -BYTE 14, 2 ; 
00000000 00004 -LONG QO ; 
00000000 00008 TMSCHR: .LONG 0 : 
00000000 OO00C FILE_NO:.LONG 0 : 


-PSECT S$GLOBAL$,NOEXE,2 


age 00009 TMSTOF : yore o ; 

aoB boot a8 THssiz: “LONG 40 : 

0000001 0000012 000014 Q000000E ap. : EHRSEA: CONG is Q, 18, 18, 30, 28, 10, 14, 14, - 
Somes SSSEESE HESS HESSD SENG HE ee Eo ; 
4 D -LONG 18(10 : 

12 0000018 90090004 0000018 9011 ONG 2B: 28: 3: Bh: $02 18: 19: $00 Bs Hs =; 
ee ey PEE EEEE ERE 

oS HRRHHE BARSSIA SSRIS BE SE cea ar 


-—e i 
j ~ 
® 
j an Se Fe ee Fe Fe FS FS FR FE FR FE FR FR FR FR FR FR SR Fe FR FE Fe te | 
o i 
| « | 
| 4 eevee | 
| _ ses &© &© &© & 
} i=) TN ODDO 
j - MMe CU 
Oo 
7. * es © &© & & 
o MOwTNOO + 
- NNN KK 
- 
*. * ses © &© & & 
Ne ™N wTumDmOoOoy «+ 
Tse _ NNONINR 
Re - 
8 ot . see 8s 8 8 
om oO woowon «+ 
ee N MK I I OO 
ww 
>= 7. esses es 8 8 ee8 
— NO woamwaor 
NX we ere er 
Lal} 
i 4 es eee seas = — — a 
or om OomMwuuoow Vuwo (o~ Pel. 4 4 -ar- tat 
av Ne MAIN RK KN — 32 ee Jo<eadu ZO 5022 xX £aQ wa 
ca O4tgw 2aZzedao dt Vewtiv0Oe wee wx<sws 
~n * 8 esses sees Ode SO OWI Zw Se ZwVV OMA. a eww 
@s- oo WDOWDOeD a> PWwWWZ ZEW uw. IY Oe ON ee wz ZH Ou 
“ ur POM aav2zaww #3SS24335222 Wwe JW 2 KOO 
uw > Tet fT Sa Aor ODEZVUZZ< Sssaxzvcc 
-o bed so OS & S OO I2ZOOF PVUVUC OW 11 OMe ee 
‘2a or OoDOwOOeR ‘eetceeeeeeeeeeeseeeeepeeeeeeeeees 
<> -— Me CUNO PBABAAADAALA DADA AAAABAAAA ARP GAA AMAA 
<< >< DK OK OK OK OK OK OK DK DK DK OK DK DK DK DK DK DK DK OK DK DK DK WK OK OK OK OK OK OK 
>w ss a 2 & 9 3 8 s eee etre reereeleel eel Velververrvervelvurvelvelvelverververvelvelvelvulvelvelvelververvy) 
mm NN MICTVUOOWN@DOeD [7 OMAGHSAAGHAABHBAABAahBoGAaaa aaa oaaaaaasaasd 
DNK——M OK K— MVE MICU OO NMSZZZ2ZZ2Z2Z2Z222222222222222222222 
oun - MN ad Od 8 ag Od Bd Cg Rang De Ra Pd DG an] Da toad Rd BG Py Sd a Ga) ne) Rd nd aed Bd Od God Ean 
-—Py se tse see eees = SCeereeeeeeecaeaeaeaeaeaacaancaacaancacaacaca 
moo LAIMNO Ocvucdcdrucoon ws ANNMNAANAMAMNAAMNMMNMMAMNANMKMMNMWMNMNNAMWMNMNMNYNW 
me ooer— NOUNS o Sao GSHHGHAHHHHHHlSHHHaHHoOaaa Aaa aaa ao 
nen. 
—-O 2222222222222 22222222222222222 
ed ovo oOouo o @Qacaacaeaeaeaacaacacacaancacancacacacaac 
Ct ofl | 222 22a r 4 eB 
on ooo oo o 2K DK OK OK OK OK OK OK OK OK OK OK DK DK OK DK DK DK OK DK OK OK OK OK OK OK OK OM OK OK 
a4jau4 — P| a PES TUS TEU L Ue Tee velvelvulvelvervelvuelvervulvulveleelvelvervelvuelververvelvetvervulvelvervy) 
wow eee ee 2 soeeseeee#8es. seeeesege ee soeeeerkh_eerses##sr°ee#ekeee®e 
coco oe uu 
oon ee uu 
-—— ws ous 
i! ~ | thd 
aa ” “n<t 
oee i. 4 “”na 
wm = zw 
$6 vu -= 
ow 
_- SDODOOOCOOCDBOOCDOO®D ODOoDaSooO 


Mower CO LVOH RK VT. OE DOOWO— 
ONES TTT TF TNA OO 
B88 88 SS SSS SSS SOS 
SOoOooOooO 


Re te be J = 
MOVING OOS 6 LOTFI ODOT EDO 
—Oo-—-—-OOSCS-So- ON ——-S-CO--SooO 


VLOVOWOTNINIT OU 


to TMS-11 conversion 
NOTMS = Generate TMS-11 Output 1 
1 
1 
1 
1 


NDXTMS == RUNOFF 
GLOBAL ROUTINE R 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


zo 
-t 

<wvT 
oo 
z2> 


7 


) 


Page 3 


joa Oh lege LD ae 
RUNOFF .SRCJNDXTMS.BLI; 


ep-19be 14:00:18 


0 


16-5 
1828 


NDXTMS == RUNOFF to TMS-11 conversion 
GLOBAL ROUTINE RNOTMS = Generate TMS-11 Output 


oOo 
“Oo 
zo 
-o 
Bo 
z> 


*eeeree Se ee 66 He He HS OS HS FS FS FS FS FS FS FS FS OS FS FS OS FS HS HS FSS OSS 6G ee HS FE FE TSE FETS FS TS FS FSCS *S SCS FS *SE*S FESR HESSD 


RINDEX$_TEXTD 


an0abaA0Q00rx 


222222222 
eaacaaccaeacac 
ae a ne er ae a ee 
>< DC DK DK DK DK DK OK OK 
WI 


pays gen AD A a 


OSoooooooo oO 


» Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 
K 


=2064(SP), SP 
»_ (L_PTR)+ 


TC_CHAR 


NE, L 
BOLD CH 


wwe = Ou © 


ITAL 


-PSECT SCODES,NOWRT,2 
R11 


ENTRY RNOTMS 


OFFC 00000 


04 
01 


57 
50 
51 


7 
B 
000000006 8F 


5 


000000006 8&F 


ww wo 

wT wv 

wo we 

o oo 

. 
” ” 
p 4 p 4 
z ~N =z 
<= a <= 
Z ai 

. 

- + ‘2a 
o am Oo w 
Z2za-am az 

Aan FR x 
a =e 


SOOCOOCOOCOSOOCSOSOCOOSOSSOSCOSOSOOSOSOOSOSOOOO OOOO OOOOOOOOOOS 
WTWOVOOOMe On 2M VOR. TF OW 2 NOOK OR en We EK OO OF- 
AO OOOVCVOBRKFOK—O— OBO O4 OOK OO— OVE COOK 4 OOK OOK Oe Oa 


WOW VO OVO DOOODOMOLO0OO LUV COOMOC—-OMOVy-fk-O® 
OWNEP-F.O << LON CL — QDNOM OMNI Z - DNODOOMMOUWN EZ - DNOMOUW 


01 


F4 


00000700 


000000006 


oc 


04 


000000006 


0000005F 


NDXTMS == RUNOFF to TMS-11 conversion 
GLOBAL ROUTINE RNOTMS = Generate TMS-11 Output 


7 
F 
Lf 
° DS 
d7 
9 C6 
D4 
11 
6D2F F 8B 
..& 
ae 
14 AE D4 
gf 11 
D1 
w 
20 AE OOF 
58 DD 
DD 
000000006 8F DD 
E 04 
000000006 8F DD 
6 FB 
025C 31 
88 GA 
9 01 
06 is 
01 DO 
36 11 
59 01 
06 12 
01 00 
¢8 11 
9 01 
g 12 
A 0D 
04 AC OD 
2 0D 
000000006 : bP 
00000000G 8F DD 
YF 
50636558 F OD 
7 
02 3 
D1 
12 
9A 
D 
E 
E 
D1 
: 
C 
e9 


SOOO CCoCOoOSoooo 


SOOO OCSOOCOOOCOSOCOOCCOSSGCOOOOOOCOOSOSOOSOOOOOOOOCOOSOOOOOOOOOOOOOOOoOO 


~O~O Cc OD0D0000 


oO 
DOW MOPARS "DOOWOOW-@ BUR we oor ot MOS aUF =_— 


Sa SSS 8S oe BSP ee erro 


a tt I I BQOOO OOOO OOOCOOCOCOOCCOCSCOCOCOCSCOOGOOSGOOOOCOOOOOCOOOCCOSoOO 
9 OOW— > NS 


10 
“Se 
“Se 


13$: 


17$: 


18$: 


19$: 


228: 


71986 93:08:78 


12$ 

1, 9$ 
LEADING_BLANKS, 13$ 
1_LEN 


I”PTR 
LEADING BLANKS 
#2, R1 


ae L_PTR)+ 


0$ 
boEN. #2000 


LINE 
LALEN 
#DSRINDEXS. TEXTD 
#OSRINDEX$_ TRUNCATED 
a LIBSSIGNAL 
(1_PTR)+, CH 
cH #42 
#1, BOLD_CHAR 
208 
CH, #38 
19$ 
#1, ITALIC CHAR 
20$ 
cH #37 
1§ 
R10 
RNO_LEN 


#DSRINDEXS. TEXTD 
#OSRINDEX$_OVERSTRK 
a6 L 1BSSIGNAL 

#156 95099, (L_PTR)+ 
6 

cH #95 

(I_PTR)+, CH 


BOLD CHAR, 25$ 
DOING gold, 27$ 
H, #3 


#26203, (L_PTR)+ 
8 #2° (L_PTR)+ 


{_te 
DOINGTITALICS, 248 


AX-11 Bliss-32_V4.9-7 
RUNOFF .SRCJNDXTMS.BLI 


° 
eo 
. 
° 
. 
° 
. 
. 
. 
o 
. 
o 
. 
a 
. 
° 
. 
. 
. 
* 
+. 
e 
7 
* 
7 
° 
. 
° 
o 
o 
+ 
° 
. 
o 
. 
o 
. 
° 
: 
* 
7 
° 
. 
° 
7 
o 
o 
e 
. 
o 
7 
o 
. 
ao 
2 
e 
. 
2 
+ 
© 
. 
° 
. 
. 
. 
* 
+ 
e 
. 
o 
7 
e 
. 
eo 
. 
. 
6 
o 
a 
oe 
6 
7 
e 
. 
. 
. 
. 
. 
a 
a 
e 
a 
6 
7 
. 
. 
° 
7 
° 
. 
2 
. 
e 
. 
. 
. 
o 
a 
¢ 
. 
e 
. 
* 


11 
erie NDXTMS == RUNOFF to TMS=-11 senvers ion. . duteut 18-Se0-1984 EH AX-11 Bliss-32 Sh ad | Page 


es 


000000006 00 CALLS 80 LIBSSIGNAL 


GLOBAL ROUTINE RNOTMS = Generate TMS- RUNOFF .SRCJNOXTMS.BLI; (3) 
? 7266 8F BO 00146 MOVW #29286, (L_PTR)+ > 0685 ; 
8 85 0 148 ADDL2 # LEN ~ ; 87 : 
A 04 AE €E9 0014 BLBC  =—«ITALIC_CHAR, 23$ ; 0689 : 
7 6966 8F 80 001 MOVW 436 > (L_PTR)+ : 696 : 
a : : 1 ADDL2 #2, L_LEN 3 069 : 
1 0015A BRB 24§ : $ 9 : 
8 AE ps 15¢ 338: CLRL BOING ITALICS : 0705 ; 
87 D i 0 OO15F 248:  MOVB #93, TL_PTR)+ + 0708 : 
8 D6 0016 INCL = LLLEN ; 0709 ; 
10 Af D4 001 CLAL BOING BOLD : 07171 : 
0 AE EB OO1GR 258: BCBS BOING BOLD, 268 : 0980 
e) 50626658 F D 54 MOVL #1 500729819, (L_PTR)+ + 0725 : 
8 4 ¢O0 001 ADDL2 #4, L_LEN + 0729 : 
10 AE 1 00 0017 OVL #1, DOING_BOLD + 0731 : 
C AE D4 0017C 368: CLRL §_ BOLD_CHAR : 0734 ; 
E 4 AE €E8 OOI7F 278: BLBS ITALTC_CHAR, 29$ : 0737 3 
F 8 AF E9 001 3 BLBC DOING Tratits, 31$ : 0748 ; 
20 D1 4 CMPL gH a3 : 0744 3 
A 13 0018A BEQL 1$ : ; 
87 6658 BF BO 0018C MOVW #26203, (L_PTR)+ + 0750 : 
4 72 F 90 00191 MOVB #114, (L_PTR)+ : O73¢ 3 
8 3 CO 00195 ADDL2 #3, L_LEN : 075 ; 
A 10 AE €9 00198 BLBC boing BOLD 28$ : 0755 
7 62667266 8F DO 00196 MOVL  #1650881126, (L_PTR)+ + 0762 
3 4 CO OO1A ADDL2 #4, L_LEN : 0766 
87 5D BF 90 001A6 288: MOVE #93, TL_PTR)+ : 0769 
8 D6 OO1AA INCL L_L : 0770 
08 AE D4 OO1AC CLRL DOING_ITALICS : 0772 
15 11 OO1AF BRB 31$ : 0737 
OE 98 AE €8 001B1 29$: _— BLBS DOING ita ICS, 30$ : 0780 
50696658 8F DO 00185 MOVL.  #1567788571, (L_PTR)+ : 0786 
58 04 rat) 00 18¢ ADDL2 #4, L_LEN : 0790 
08 AE 1 DO 001BF OVL #1, DOING_ITALICS ; O79e 
04 AE 04 001C3 308: CLRL —«ITALIC_CHAR : 679 
20 59 01 001C6 31$: CMPL cH #32 : 0798 
09 19 001C9 BLSS 2$ ; 
0000007E = 8F 9 D1 0018 CMPL cH #126 ; 
1 15 001D BLE 4$ ; 
000000006 8F 9 Di 00104 32$ CMPL H, #TAB + 0804 
A 12 00108 BNEQ 3 : 
87 F 9 9100 MOVB #47, (L_PTR)+ > 0810 
67 75 ma f 20 ae nove Hi? (C_PTR) : 0811 
A DD OO1E7 33$:  PUSHL R10 : 0822 
04 AC DD OO01E9 PUSHL RNO_LEN : 
DD OO1EC PUSHL #2 ; 
000000006 8F DD OO1EE PUSHL #DSRINDEX$_TEXTD : 
E D4 OO1F4 CLRL. = (SP) : 
000000006 i} DD ae PUSHL #DSRINDEXS CTRLCHAR ; 
c 8 ; BRB 3 : 0798 
0000005F &F 39 p| 3 34$ CPL H, #95 ; 0838 
67 00000000' EF 2 MOVC3 #5, P.AAA, (L_PTR) ; 840 
7 C ADDL2 #5, L_PTR > 0841 
8 C 1 ADDL2 = #5, ~LULEN > 0842 


NDXTMS == RUNOFF to TMS=11 conversion 
GLOBAL ROUTINE RNOTMS = Generate TMS- 


0000005C 


00000040 


0000007¢ 


00000078 


00000070 


01 | 


A 

B 

6E F 
0081 

9 

A 

B 

61 F 
0084 

9 

; 

65 F 
0083 

9 

A 

B 

70 F 
00 § 

s 
sf 
0080 

9 

09 

B 

74 F 
F 

59 

08 

5% 

39 

09 

B 

76 F 
D 

59 

77 ; 
9 

B 

9 

B 

oh 
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11 Output i$ 


31 


i 
“Se 
~bep-4 


If 388: 


iF 
| 
: ) 37$: 
A 
i 38$: 
He 
3 0249 
D1 0024C 39$: 
{é O24F 
9 8 51 
$0 90954 
01 09 28 40$: 
12 0026 
26 aoe 
39 09 6B 41$: 
D1 00 $f 42$: 
12 00 
90 00277 
90 83 7A 
11 O0027E 
o} 8 53 43$: 
if e 
90 00288 
11 00288 
D1 0028D 44$: 
i Hs 
90 00 38 
11 00295 
»} 0 +4 45$: 
26 O03h8 
11 AF $68 
o1 OBee 78 
: ep 
8B 
c} $88 
} tg 49 
: He 
1 CF 208 
D1 00201 51$ 


384 13:08:78 ERtnorresreS 


(L_PTR)+ 
#116, (C_pTR) 
46$ 


H, #61 


i 
#43, (L_PTR)+ 
#101, (C_PTR) 


xo 


WA AWE MOWER: HWE BW O--WE OH 


(L_PTR)+ 
8, (C_PTR) 


3 
oOo 
™m 


(L_PTR)+ 
§, (C_PTR) 


#64 


(L_PTR)+ 
6, (C_PTR) 


& 
LS 
N 


(L_PTR)+ 
8, (C_PTR) 


#123 


(L_PTR) + 
§, (C_PTR) 


#125 


(L_PTR)+ 
6, (C_PTR) 


os 
o 
o 


(L_PTR)+ 
{, (C_PtR) 


#62 


OM FHS TOM FO TOM FIT OM PTA PETAR FT PM ENT FO 


= ATONE: CWE 


OND BNO NB BLOVRSBHLOUVBRBHLOVFRBLOUVBBLHLOUSBBHLOUVARSALOWV 


Page 21 NB 
"1 “11 Bliss=32_v4.0=74 3} 
rsion 18-Sep-1984 M878 «URN SReINOMTMS -OLf, 
GLOBAL ROUTINE RNGTMS © Genscove THge11 Output Jeagep-1oRe $4285: : 
ers GLOBAL ROUTINE RNOTMS = Generate - : 0924 
Saas 8 dg Rosne MOVE #23, (L_PTR)S ; 0925 : 
6 a : 5 poe ages CMPIRD ; 0929 ; 
? $: BRB : : 
b1 Q600 3g H, #91 : 
DF 538: CMPL 5 easy 
00000058 &F ; +t Eg Sova a (L_PTR)+ ; 0932 : 
e? ; : EB A phatase ; 0936 ; 
FO 55$: CMPL H + 0938 
0000005D = 8F 5 0 i nove st (L_PTR)+ ; 89 9 
87 3 ; O5e MOVE #4) (LTPTR) ; 0943 
ai as Hae ; 
. GE Shins RUBE Been core, 3 Bee 
: 35 $6 6 MOVE #34. (LTPTRD ; 0954 
3 amet tt t9 CURL OPEN QUOTE : 0945 
89 11 00 af ROVE #39, (L_PTR)* : 0962 
£30 2031) 588 Sve «#30. (EoPTRY : 0964 
ey 5 ae Bbai8 MOVE #1, OPER. QUOTE i 0998 
2 57 D6 OOS1C 598: {ee ; 0835 
02 ¢cO 00 if 44 i : 0975 
‘a 90 90393 608: ROVB CH (L_PTR# 0358 
ad 33 Oe 00326 ACBL OTTLEN, #1, 1,168 : 0987 
AE EB OO3SF 628: © BLBS DOING. BOLD, 63S yo 
pena re ee ae tae : 38 
; g 0337 638: — MOVB tn > : 0996 
58 06 00338 BLBC DOING BOLD, 64 ; 
)+ : 1001 
gral GPR RAE Balun 8 
87 7266 02 CO 46 ADDL2 DOIN “ITALICS 65$ : 1007 
a8 08 AE 9 0 re os: ite OD #0881 LBS ; HE 
7266 «8F B ADDL2 a3 L LEN : 101 
0 $, TL_PTR)+ 21 
58 e 658: MOVE # - : 1016 
an | Bg 09 668: LBS betNouore, 678 1024 
E . 1 : 
ey 5A DD 6 PUSH RNO_LEN 
- 2 of PUSHL # ate 
gD Ope PUSHL  #DSRINDEX$_TE 
000000006 68 CLRL X$_CLOSEQUOT 
000000006 ff P 2 EALLS Ho, LIBgSIMAL 3 1034 
i momen Di ors Gay ich rat : 
18 AE 1 ROVAB LINES SSTRESTRINGS4 
eA AE 3E PUSHAB STREFATLURE 
1C AE $0 FOF s 
ooo00b0s EF 9 cla 
0c AC dd 0039 PU 


04-000 


; Routine Size: 
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GLOBAL ROUTINE RNOTMS = Generate TMS-11 Output 1B-5e0 e219 32 9}: §$: i AUNORF SRE noaTNS SLi 


24 fs oF G 8 PUSHAB Se LBPSTRENG 
000000006 EF 65 fe 


3 L 
£6 80808 


LR } 
ALLS #5, XSTSCOPY 
A ET 
931 bytes, Routine Base: SCODE$ + 0000 
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NOXTM NDXTMS == 
v04~000 


xS 
GL 
'4 


~“ 
Co 
~N 
a cd a ee ee ee a ee a ee a ae ee ee ed ec a a ee a ee ce ee ec ee ce ce ee ee ee ed eee ee eed 
CSOoOooooooooooooo 


1 
1 
1 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
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1 
1 
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: 


Be Be Se Se Se Fe Sse Be Se Ge FH Se Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge FH Ss Se Se Gs FH Se BF Se Ss Se Se Se Ss SF Ss Se FF Se Se FF Se Ss SHS SESH SH Ss es ees ee 
~“ 
co 
co 


OOO 00000D 


m—OOOnNOuU 


SOoCoooooooooo 


GLOBAL ROUTINE TMSPUT == Wr 


1 
~3eb-198o 15:09:18 YRUNOFE’SRESNOATNE “OL Te 
e to output file’ 
: NOVALUE = 


te a Line to output 


BTTL ‘GLOBAL ROUTINE TMSPUT == Write a 


F 
RUNOFF to TMS=-11 gonvers jon 1 
l 
OBAL ROUTINE TMSPUT (LEN, PTR, I0B, IDEA 


: FUNCTIONAL DESCRIPTION: 


This routine is called to write a line to the output file. 


f the output file is TMSSIZ blocks, and IDEAL 
s TRUE, creates a new output file before writing Line. 


If the output file is TMSSIZ + 10 blocks, creates 
anew output file unconditionally. 


New output file_names are of the form 
{first 3 characters of original file name}{3 digits}. TMS 


FORMAL PARAMETERS: 


LEN - Length of Line 
PTR = CHSPTR to Line 
108 - Address of I0B 
IDEAL = TRUE if file can be broken on this Line 


IMPLICIT INPUTS: 


TMSCHR = Number of characters written to output file 
TMSSIZ = Ideal file size in blocks 


IMPLICIT OUTPUTS: 
TMSCHR = Number of characters written to output file 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 
None 
BEGIN 
10B : REF $XPO_I0B (); 


IF ((.TMSCHR GEQ (.TMSSIZ * 215)? AND 
Pie (.TMSCHR GEQ (.TMSSIZ * 512 + 512 


N 
BEGIN 


i Must start a new output file. 
TMS11 can process only 40-50 block files maximum. 


LOCAL 
L_NAME, 
SPEC_BLK : $XPO_SPEC_BLOCK; 


sDEAL) ' Best place to start a new file 


0) ! Unconditionally start a new file 


ss 


coco CD CD CD CD CD 


WWNAWAWNIAIPIPPININPIPINPINYNYN 2 


PURE UN @ O ODNAUNE WO OONOUS WN" OOONOUS WN "OVD ONO 


vvuv0v0 
ee ee ee ee ee ee ee ee ee ee ee ee ee eee eee 


ce ce cee ed ce ee cee cee ed cee cee ee ced ce ce ce ce ce ee ee ce ce ce ee ce cee ed ce ee eee en ce ee ce ee ce ee ee ee ee ee eed ee ee 


ew 0 ot at ee ae oe at et et eo 
a 


w 


ttt te 


FE —SSe~ 
cccce 


o 
Nm—OOCOnNOw 


IN 
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GLOBAL ROUTINE TMSPUT == Wr 


34 
5 


3 
$7 


; 


Ooo 
Oo 
co 


BEEPS EF PNA NIIP DINIPUPIPNINID 2 2 OO SS  S MOO COOOOOOO 
DOONAN WR 0 ODNIA NE WIN @ O OONAUE WIN O OONAU SW (OOD ONAY FW —0O0 


te a line to output 1 RUNOFF ..SRCJNDXTMS.BLI; 


IF .OLD_FILE CSTRSH_LENGTH] EQL 0 
THEN | 


i Save first output file name. 
' We use it to build the new file name and 
} for a related file specification. 


$STR_COPY (STRING = 108 CIOBST_RESULTANT], TARGET = OLD_FILE); 
' 
} Parse old file name 


$XPO_PARSE_SPEC (FILE_SPEC = OLD_FILE, SPEC_BLOCK = SPEC_BLK); 
i] 
Use up to 6 characters of old file name for new file name 


if .SPEC_BLK CXPOSH_FILE_NAME] GEQ 6 
THEN 


ese ™ = 6 
LLNAME = .SPEC_BLK CXPOSH_FILE_NAME]; 


' 
Close current file 


$XPO_CLOSE (10B = .10B); 


' 
Open new file. 


FILE_NO = .FILE_NO 
$XPO-10B_INIT (TOB ); 

TIONS = OUTPUT, DEFAULT = OLD_FI 
AT ((.L_NAME, .SPEC_BLK CXPOSA F 
NO, UNSIGNED, LEADING_ZERO, LEN 
ZTHEN , FAILURE = OPENTERROR %F 1 


ZIF BLISS (BLISS32) 
XTHEN ! Signal messages in BLISS32 
SIGNAL (INDEX$_TMS11, 1, I10B CIOBST_RESULTANT)); 
ZELSE ! Use $XPO_PUT_MSG otherwise 
$XPO_PUT_MSG (SEVERITY = SUCCESS, 
STRING = $STR_CONCAT (‘output file full - continuing with file ''', 108 CIOBST_RESULTANT], ‘''') 
2F I 


1 
Write initial Lines 


$XPO_PUT (10B = .10B 
= 108 


é TMSTOF); 
$XPO-PUT (10B my) 


RING 
RING ; 


H 11 
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GLOBAL ROUTINE TMSPUT -- write a line to output it aSep- 1382 9}: A$: 3 RUNOFF. BR we NDXTMS.BLI; ows B 


sg = .TMSTOF CSTRSH_LENGTH] + 


Ss 


Write Line to file 


TMSCHR = ,TMSCHR + .LEN; 
$xPO_PUT (10B = .10B, STRING = (.LEN, .PTR)); 


— a 
ad dd 
SUFI 
ONOULSWI—O 


«PSECT SPLITS,NOWRT,NOEXE,2 
20 00008 P.AAB: .ASCII \ \ : 
«PSECT SOWNS,NOEXE,2 
0001 00010 S$IOBSOUTPUT: 
ORD 


.W : 
01 O& 00012 “BYTE 14, 1 : 
00000000" 00014 “ADDRESS P.AAB ; 
SSTRSTARGET= FILE 
SSTRSFILE SPEC= OLD-FILE 
$IOBSDEFAOLT= FILE 
$10BSOUTPUT= TMSTOF 
.EXTRN XPOSPARSE_SPEC, XPOSFAILURE 
SEXTRN XPOSCLOSE; XST$JOIN 


-EXTRN EUG ya C11, XPOSOPEN 


° 
° 
° 
° 
o 
. 
° 
o 
° 
. 
° 
o 
o 
. 
7 
os 
a 
° 
° 
. 
. 
. 
e 
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. 


*EXTRN 
.PSECT $CODES,NOWRT,2 
OFFC 00000 .ENTRY TMSPUT, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- ; 1037 
5B 00000000" EF 9E 00002 MOVAB $IOBSOUTPUT, R11 : 
2A 099000006 EF 9€ 90009 MOVAB XPOSPUT, R : 
9 000000006 EF 9E 9019 MOVAB XPOSFAICURE., R9 : 
58 00000000" EF 9€ 0001 MOVAB THSCH CHR RB ; 
5E BO ag 3 001 MOVAB -80(SP 3 
50 08 As 09 78 000 ASHL = #9 trséiee RO > 1082 
5 68 D1 000 CMPL =sTMSCHR ; 
04 19 0 A BLSS  1$ : 
gp 10 aC f BLBS DEAL 2$ ; 
0 1400 ¢ : 030 1$ MOVAB 5120(RO), RO : 1083 
50 68 D 99 CMPL §_ TMSCHR, RO ; 
03 18 000 BGEQ 2 ; 
00F9 31 O3A BRW 6$ ; 
FB OAR a 2$ TSTW QLD_FILE > 1094 
18 4 BNEQ 3 
50 oc ac 1C s 4 ADDL3 #28, 108, RO : 1101 
000000006 EF F 0004 PUSHAB STRSFAILURE ; 
4 0004D CLRL = = (SP) : 
F8 «AS OF O004F PUSHAB SSTRSTARGET : 
3 DD 2¢ PUSHL R : 
E 04 00 CLRL -(SP) 3 


11 
+ a NDXTMS == RUNOFF to TMS-11 conversion 15-Sep-1984 94:16:33 AX-11 Bliss-32 V4.0-74 
v04-0 GLOBAL ROUTINE TMSPUT <= Write a Line to output 14-Sep-1984 :07: RUNOFF .SRCJNDXTMS.BLI; 
ppcteniet 0} OB ARPEE ng, tuk ge HsT9C0r 
: D4 F CLRL  =(SP) 
7E 0 ge 61 MNEGL #1, =(SP) 
16 AE SF 4 PUSHAB spec BLK 
F8 AS OOF 7 PUSHAB TRSFILE SPEC 
000000006 EF 0 FB A CALLS #5, XPOSPARSE SPEC 
6 28 AE 8 CMPW 386s SPEC_BLK+32, #6 
F 0007 BLSSU 4$ 
57 é 00 7 MOVL #6, L_NAME 
4 } 7A BRB 
57 28 AE ic 4$: MOVZWL SPEC_BLK#32, L_NAME 
6 ie p 80 5$: MOVL  108,"R 
2c AG 0084 MOVE #2, 44(R6) 
dD 0 PUSHL 
E D4 OBA CLRL. = (SP) 
36 DD 0 C PUSHL 
000000006 EF a“ 03 FB OBE CALLS #3, XPOSCLOSE 
OOF  8F 00 6E 00 Be 0096 MOVCS #0, TSP), #0, #244, (RO) 
66 0301003D rf 00 O0AQ MOVL #50397245, (R6) 
1E Ab 020€ BF 80 90047 MOV #526, 30(R6) 
04 AB bp DO0Ar PUSHL FI 
7E 0603 BF 3C 00B¢ MOVZWL #1539, =(SP) 
000000006 EF 3 FB 000B CALLS #3, XSTSASCII 
6E BO O00BE MOVW  L_NAME SSTRSSTRINGO 
02 AE 0— 90 000C1 MOVB #14, SSTRSSTRINGO+ 
03 AE 07 90 000C5 MOVB#'1 SSTRSSTRINGO* 
04 AE 2c AE v0 90¢9 MOVE SPEC. LK+36, S$STRSSTRINGO+4 
04 AE OF 600 PUSHAB $STRSSTRINGO 
00000896 ade 
08 Ab F8 AB YE 000D MOVAB SIOBSDEFAULT, 8(R6) 
2E «Ab 2 8 O0E BISB2 #2, 46(R6) 
2C Ab 1 O0E OVB #1. 44(R6) 
000000006 EF oF aut PUSHAB OPEN ERROR 
36 DD OF PUSHL Rg 
ween 1c AB OF OoORE SUSHAB SB{RODO 
1 DD OOOFF PUSHL @# 
000006006 8F DD 00101 PUSHL #OSRINDEXS ™MS11 
000000006 00 3 FB 00107 CALLS @ L18 SIGNAL 
44 A 8 3 1 MOVAB $168 OUTPUT, 68(R6) 
2c Ab 90 0011 MOVB #7, 44(R6) 
9 DD 116 PUSHL 
= «D4 0011 CLRL. = = (SP) 
6A 88 FB oolie CALS #3, XPOSPUT 
a (3 08 A 11F MOVAB $1O8S0uTPUT, 68(R6) 
2c Ab 124 OVB #7, 44(R6) 
9 DD 00128 PUSHL 
E D4 O0120A CLRL. = = (SP) 
56 DD 0012C PUSHL  R6 


Pee Se Se Se Se Ge Se Se Se Se Se Ge Se Se Ge Ge Se Ge Ge Se Se Se Ge Se Se Se Ge Be Se Ge Ss Se Se Be Be Be Ge Fe Se Be Se Se Se Ge Se Se Se Se Se Se Ge Be Be Se Be Se 


1136 | 


1148 


1149 


NDXTM NDXTMS == RUNOFF to TMS=-11 conversion 1-5 Sep-1 
v04-000 GLOBAL ROUTINE TMSPUT -=- write a Line to output 1 ~Sep-1 
6A 3 FB 001 
i sae ans 
68 OD 134 
8 4 ac C 136 6$: 
. « ® 13A 
48 AE 4 ac 1 
4A AE of : 148 
4B AE 14 
oA BR 
2c AU i 5 1 
9 DD 1 
D4 00158 
5 0D 15D 
6A 03 FB 0015F 
04 00162 
3; Routine Size: 355 bytes, Routine Base: S$CODE$S + 03A3 
HR 1B Lo End of moe 
+ B84 1161 0 ELUDOM she aahaheg Somme 
; PSECT SUMMARY 
; Name Bytes Attributes 
: $GLOBALS 2064 NOVEC, WRT, RD ,NOEXE,NOSHR, 
; SOWNS 24 NOVEC, WRT, RD ,NOEXE,NOSHR, 
; SPLITS 9 NGYEC,NOWRT, RD ,NOEXE,NOSHR, 
; SCODES 1286 NOVEC,NOWRT, RD, XE,NOSHR, 
s » ABS « 0 NOVEC, *NOWRT , * NORD *NOEXENOSHR, 
: Library Statistics 
: evececece Symbols ecceece 
: File Total Loaded Percent 
; _$255$DUA28:(SYSLIBIXPORT.L32;1 590 175 29 


COMMAND QUALIFIERS 


Be 14:08: " 


AX-11 Bliss-32_ V4.0-74 
RUNOFF ..SRCINDXTMS .BLI; 


CA Ls XPOSPUT 
MOVZWL Faer tee TMSCHR 


LEN, TMSCHR 

MOVL 108, RO 

N, SIOBSOUTPUT 
IOBSOUTPUT +2 


= 
o 
< 
= 
- 


MOVB = #14; 

Move =so#', $ 08 BSQUTPUT +3 
MOVL PTR TBUT +4 
MOVAB eri 68(RO) 
MOVB 

PUSHL 

CLRL RSP) 

PUSHL R0 

CALLS #3, XPOSPUT 


~-EXTRN LIBSSIGNAL 


LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, ABS, CON,NOPIC,ALIGN(O) 
Pages Processing 
Mapped Time 
252 00:00.1 
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NOXTM NDXTMS == RUNOFF to TMS=-11 conversion 16-Sep-1984 01:12: AX-11 iss- 4.0-74 
you~0 GLOBAL ROUTINE TMSPUT == Wr te a Line to output 13-98-1382 94:48:38 RUNOFF SRE NoATNS OLA —_ (f8 


: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISS:NDXTMS/OBJ=OBJS:NDXTMS MSRC$:NDXTMS/UPDATE=(ENHS$:NDXTMS) 
Size: 128 0:27%9 + 2097 data bytes 
Run Time i. 

me: 


Elapsed T 

Lines/CPU Min: if 
"ay Ne ya | a? 
peer Used: pages 
Compilation Solan 
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